CompuServe CD 495W/Compuserve XTreme Edition 495W.iso/shopping/toyota/toyota.dir/00254.ls

Text File | 1995-08-09 | 6.6 KB | 264 lines

on showModel whichModel
  go("lineup")
  puppetSprite(45, 1)
  puppetSprite(46, 1)
  set the locH of sprite 45 to 250
  set the stretch of sprite 46 to 0
  puppetTransition(5, 2, 2, 1)
  set the castNum of sprite 46 to the number of cast (whichModel & ".pict")
  updateStage()
end

on hideModel
  set the mouseDownScript to EMPTY
  if rollOver(26) or rollOver(27) or rollOver(28) then
    nothing()
  else
    dontPassEvent()
  end if
  puppetTransition(6, 2, 2, 1)
  set the castNum of sprite 46 to 0
  updateStage()
  puppetSprite(46, 0)
  go("tm")
end

on airplaneRollover
  global gLastRollover
  if rollOver(gLastRollover) then
    exit
  end if
  repeat with n = 6 to 13
    if rollOver(n) then
      set the castNum of sprite 5 to the number of cast "compass.text" + (n - 6)
      updateStage()
      set gLastRollover to n
      exit repeat
      next repeat
    end if
    set the castNum of sprite 5 to 0
    updateStage()
  end repeat
end

on eyesRollover
  if the mouseV > 370 then
    set the locV of sprite 6 to 314
  else
    if (the mouseV < 370) and (the mouseV > 250) then
      set the locV of sprite 6 to 312
    else
      if the mouseV < 250 then
        set the locV of sprite 6 to 310
      end if
    end if
  end if
  if the mouseH > 380 then
    set the locH of sprite 6 to 312
  else
    if (the mouseH < 380) and (the mouseH > 300) then
      set the locH of sprite 6 to 310
    else
      if the mouseH < 300 then
        set the locH of sprite 6 to 308
      end if
    end if
  end if
  if (the mouseH > 288) and (the mouseH < 328) and (the mouseV > 307) and (the mouseV < 318) then
    set the width of sprite 6 to 60
  else
    set the width of sprite 6 to the width of cast "eyes"
  end if
  updateStage()
end

on quitScript
  repeat with n = 1 to 48
    puppetSprite(n, 0)
  end repeat
  sound stop 1
  sound stop 2
  puppetTransition(0)
  updateStage()
  go("disclaimer")
end

on setScore whichCategory
  global scaleScore
  set theBox to the clickOn - 10
  set origin to the locH of sprite 14
  repeat while the mouseDown
    if (the mouseH > origin) and (the mouseH < (origin + 80)) then
      set value to integer((the mouseH - origin) / 20) + 1
      set the locH of sprite theBox to ((value - 1) * 20) + origin
      updateStage()
      next repeat
    end if
    if the mouseH < origin then
      set the locH of sprite theBox to origin
      updateStage()
      next repeat
    end if
    if the mouseH > (origin + 80) then
      set the locH of sprite theBox to origin + 80
      updateStage()
    end if
  end repeat
end

on checkScale
  global gScore
  set gScore to 0
  set origin to the locH of sprite 14
  repeat with n = 5 to 13
    set value to ((the locH of sprite n - origin) / 20) + 1
    set gScore to gScore + value
  end repeat
  if gScore < 9 then
    set the castNum of sprite 4 to the number of cast "s-4"
  else
    if (gScore > 8) and (gScore < 13) then
      set the castNum of sprite 4 to the number of cast "s-3"
    else
      if (gScore > 12) and (gScore < 17) then
        set the castNum of sprite 4 to the number of cast "s-2"
      else
        if (gScore > 16) and (gScore < 26) then
          set the castNum of sprite 4 to the number of cast "s-1"
        else
          if (gScore > 25) and (gScore < 29) then
            set the castNum of sprite 4 to the number of cast "s0"
          else
            if (gScore > 28) and (gScore < 32) then
              set the castNum of sprite 4 to the number of cast "s1"
            else
              if (gScore > 31) and (gScore < 36) then
                set the castNum of sprite 4 to the number of cast "s2"
              else
                if (gScore > 35) and (gScore < 40) then
                  set the castNum of sprite 4 to the number of cast "s3"
                else
                  if gScore > 39 then
                    set the castNum of sprite 4 to the number of cast "s4"
                  end if
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  end if
  if (gScore > 25) and (gScore < 29) then
    set the foreColor of sprite 24 to 255
    set the foreColor of sprite 25 to 255
  else
    if gScore < 26 then
      set the foreColor of sprite 24 to 255
      set the foreColor of sprite 25 to 35
    else
      if gScore > 28 then
        set the foreColor of sprite 24 to 197
        set the foreColor of sprite 25 to 255
      end if
    end if
  end if
  updateStage()
end

on mySound whichSoundFile
  global gCurrentSoundFile
  set gCurrentSoundFile to whichSoundFile
  if gCurrentSoundFile <> EMPTY then
    puppetSound(0)
    puppetSound(whichSoundFile)
  end if
  set the timeoutLapsed to 0
end

on sfx whichSoundFile
  if the machineType = 256 then
    sound playFile 2, the pathName & "sfx\" & whichSoundFile
  else
    sound playFile 2, the pathName & "sfx:" & whichSoundFile
  end if
  set the timeoutLapsed to 0
end

on idleBoy
  global gSoundID
  if gSoundID = 0 then
    mySound("idle01.aif")
    set gSoundID to gSoundID + 1
  else
    if gSoundID = 1 then
      mySound("idle02.aif")
      set gSoundID to gSoundID + 1
    else
      if gSoundID = 2 then
        mySound("idle03.aif")
        set gSoundID to 0
      end if
    end if
  end if
  if marker(0) = 14 then
    puppetSprite(6, 1)
    set the castNum of sprite 6 to the number of cast "MAN LOOP"
    updateStage()
    set the timer to 0
    repeat while the timer < 120
      go(the frame)
    end repeat
  end if
end

on ROLLCHECK
  global gPreviousRollover
  if rollOver(gPreviousRollover) = 0 then
    if rollOver(5) then
      set gPreviousRollover to 5
      sfx("hammer.aif")
    else
      if rollOver(6) then
        set gPreviousRollover to 6
        sfx("ratchet.aif")
      else
        if rollOver(7) then
          set gPreviousRollover to 7
          sfx("tip01.aif")
        else
          if rollOver(8) then
            set gPreviousRollover to 8
            sfx("chisel.aif")
          else
            if rollOver(9) then
              set gPreviousRollover to 9
              sfx("tip02.aif")
            else
              if rollOver(10) then
                set gPreviousRollover to 10
                sfx("ratchet.aif")
              else
                if rollOver(11) then
                  set gPreviousRollover to 11
                  sound stop 2
                  sfx("handsaw.aif")
                else
                  if rollOver(12) then
                    set gPreviousRollover to 12
                    sfx("tip01.aif")
                  end if
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  end if
end

on idleCD
  mySound("deal03.aif")
end